perm filename CSCAL.SCR[HHA,LCS] blob
sn#433832 filedate 1979-04-18 generic text, type T, neo UTF8
FUNC FUN; < F1, F2, F3, F4, F5, F6
COMMON TOOT TOOT CLAR BRIT BUZZ;
COMMON REVRB;
< CSCAL.SCR -- RANDOM NUMBER= 1
PLAY;
REVRB 0.000 7.000
;PRINT P1;< REVRB 1
CLAR 0.000 0.479 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 1
BUZZ 0.000 0.253 C 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 1
BUZZ 0.253 0.129 B/2
;PRINT P1;< BUZZ 2
BUZZ 0.382 0.130 A/2
;PRINT P1;< BUZZ 3
CLAR 0.479 0.225 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 2
BUZZ 0.512 0.132 G/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 4
BUZZ 0.644 0.134 F/2
;PRINT P1;< BUZZ 5
CLAR 0.704 0.217 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 3
BUZZ 0.778 0.136 E/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 6
BUZZ 0.914 0.138 D/2
;PRINT P1;< BUZZ 7
CLAR 0.921 0.210 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 4
BUZZ 1.052 0.281 C/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 8
CLAR 1.131 0.203 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 5
BUZZ 1.333 0.144 D/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 9
CLAR 1.334 0.197 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 6
BUZZ 1.477 0.146 E/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 10
CLAR 1.531 0.192 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 7
BUZZ 1.623 0.149 F/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 11
CLAR 1.723 0.368 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 8
BUZZ 1.772 0.151 G/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 12
BUZZ 1.923 0.154 A/2
;PRINT P1;< BUZZ 13
BUZZ 2.077 0.157 B/2
;PRINT P1;< BUZZ 14
CLAR 2.091 0.177 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 9
BUZZ 2.234 0.322 C 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 15
CLAR 2.268 0.173 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 10
CLAR 2.441 0.170 G
;PRINT P1;< CLAR 11
BUZZ 2.556 0.166 B/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 16
CLAR 2.611 0.166 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 12
BUZZ 2.722 0.170 A/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 17
CLAR 2.777 0.163 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 13
BUZZ 2.892 0.173 G/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 18
CLAR 2.940 0.160 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 14
BUZZ 3.065 0.177 F/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 19
CLAR 3.100 0.310 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 15
BUZZ 3.242 0.182 E/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 20
CLAR 3.410 0.151 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 16
BUZZ 3.424 0.187 D/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 21
CLAR 3.561 0.149 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 17
BUZZ 3.611 0.389 C/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 22
CLAR 3.710 0.146 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 18
CLAR 3.856 0.144 G
;PRINT P1;< CLAR 19
CLAR 4.000 0.142 A
;PRINT P1;< CLAR 20
BUZZ 4.000 0.203 D/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 23
CLAR 4.142 0.140 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 21
BUZZ 4.203 0.210 E/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 24
CLAR 4.282 0.273 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 22
BUZZ 4.413 0.217 F/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 25
CLAR 4.555 0.134 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 23
BUZZ 4.630 0.225 G/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 26
CLAR 4.689 0.132 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 24
CLAR 4.821 0.130 G
;PRINT P1;< CLAR 25
BUZZ 4.855 0.234 A/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 27
CLAR 4.951 0.129 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 26
CLAR 5.080 0.127 E
;PRINT P1;< CLAR 27
BUZZ 5.089 0.244 B/2 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 28
CLAR 5.207 0.126 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F4
;PRINT P1;< CLAR 28
CLAR 5.333 1.000 C
;PRINT P1;< CLAR 29
BUZZ 5.333 1.000 C 1.000 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.080 F6
;PRINT P1;< BUZZ 29
FINISH; < CSCAL.SCR